home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-19
/
pkey12_1.zip
/
WC.LSP
< prev
next >
Wrap
Text File
|
1992-09-13
|
1KB
|
34 lines
;Draw a wall from its center point. (only draws one at a time)
;
;
(defun dtr (angg)
(* pi (/ angg 180.0)))
(setq oer *error* *error* err)
(pre)
(if (= *ly nil)(setq *ly "E")
(setq ly *ly))
(SETQ ly(getstring (strcat "\n(E)xterior. (I)nterior. < ")
(PROMPT *ly)
(prompt "\ >")
(princ)))
(if(= ly "")(setq ly *ly)(setq *ly ly))
(if(or(= ly "E")(= ly "e"))(setq ly "ew"))
(if(or(= ly "I")(= ly "i"))(setq ly "iw"))
(command"layer" "s" ly "")
(if (= do1 nil)(setq *do1 4.5))
(initget (+ 2 4))
(setq do1(getdist(strcat "Enter wall thickness <" (rtos *do1) ">: ")))
(if (= do1 nil)(setq do1 *do1)(setq *do1 do1))
(SETVAR "CMDECHO" 0)
(setq wt(/ do1 2))
(setq pt1 (getpoint "\nPick starting point : "))
(if (= pt1 nil)(WRF))
(setq pt2 (getpoint pt1 "\nNext point "))
(if (= pt2 nil)(err))
(setq ang (angle pt1 pt2))
(setq pta (polar pt1 (- ang (dtr 90)) wt))
(setq ptb (polar pt2 (- ang (dtr 90)) wt))
(command "line" pta ptb "")
(setq pt5 (polar pt1 (+ ang (dtr 90)) wt))
(setq pt6 (polar pt2 (+ ang (dtr 90)) wt))
(command "line" pt5 pt6 "")(post)(princ)